home *** CD-ROM | disk | FTP | other *** search
/ Chip 2002 October / Chip_2002-10_cd1.bin / oddech / karel / karol.exe / {app} / Priklady / 11sprav_sucet.kpp < prev    next >
Text File  |  2001-05-08  |  2KB  |  86 lines
  1. {
  2. program spocita cisla
  3. Karol na zaciatku stoji pri najnizsej cifre a
  4. je natoceny k jednemu z cisel (k tomu viac vpravo).
  5. (natoci sa tam sam pomocou podmienky VYCHOD)
  6.  
  7. program ukazuje pouzitie
  8.    vlastnych prikazov
  9.    vlastnych podmienok
  10.    prikazov pomaly a rychlo
  11.    parametrov (napriklad podmienka ak je tehla(10) tak...)
  12.    podmienok na urcenie natocenia Karla (sever, juh, zapad, vychod)
  13. }
  14. //   a = 0026355439
  15. //   b = 0000470389
  16. //       ----------
  17. // a+b = 0026825828
  18. prikaz celomvzad;
  19.   rychlo
  20.   vlavo
  21.   vlavo
  22.   pomaly
  23. *prikaz
  24.  
  25. prikaz skontroluj_pretecenie
  26.      ak je tehla(10) tak
  27.        opakuj 10 krat zober *opakuj;
  28.        oznac
  29.      *ak
  30. *prikaz
  31.  
  32. {prelozi jeden stlpcek na druhy.
  33.  ak sa objavilo "pretecenie", nastavi "flag" - znacku}
  34. prikaz preloz
  35.    kym je tehla rob
  36.      zober
  37.      celomvzad
  38.      poloz
  39.  
  40.      skontroluj_pretecenie;
  41.      
  42.      celomvzad
  43.    *kym
  44. *prikaz
  45.  
  46. {pravdiva, ak ma karol po pravej ruke stenu}
  47. podmienka vpravo_stena
  48. //  rychlo
  49.   vpravo
  50.   ak je stena tak
  51.     pravda
  52.   inak
  53.     nepravda
  54.   *ak
  55.   vlavo
  56. //  pomaly
  57. *podmienka
  58.  
  59. prikaz scitaj_cisla
  60.   //opakuj 9 krat
  61.   kym nie je vpravo_stena rob
  62.     preloz
  63.     vpravo
  64.  
  65.     ak je znacka tak
  66.       odznac
  67.       krok
  68.       vpravo
  69.       poloz
  70.   
  71.       skontroluj_pretecenie
  72.   
  73.       celomvzad
  74.     inak
  75.       krok
  76.       vlavo
  77.     *ak
  78.   *kym
  79. *prikaz
  80.  
  81. // ZACIATOK PROGRAMU
  82. {otocim karla na dobru stranu}
  83. kym nie je vychod rob vlavo *kym
  84. {scitam cisla}
  85. scitaj_cisla
  86.